home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 30 / 030.d81 / hello connect (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  985b  |  14 lines
  1. 1 poke51201,0:poke927,0:poke1023,0:poke53281,.:poke53280,.:c$=chr$(34)
  2. 2 ifps=.thengosub20:ps=1
  3. 3 ifjpthensys50140:goto7
  4. 4 open15,8,15,"i0":close15                               
  5. 7 poke646,peek(53281):print"l[207]"c$"pre*"c$",8"
  6. 8 print"run";
  7. 10 poke631,13:poke632,13:poke198,2:end
  8. 20 d$="[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
  9. 25 print"[147]     [152][172][155]"d$"[152][187]"
  10. 30 print"     [161][146] [199]oing to [204]oadstar [205]enu ... [152][161]"
  11. 40 print"[156][163][163][163][163][163][152][188][155]"d$"[146][152][190][156][163][163][163][163][163]";
  12. 45 d$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  13. 50 print"[154]"d$:print""d$:print"[158]"d$:print"[129]"d$:print""d$"";:return
  14.